我總共有三個檔,一個是主檔(ctm_pi),一個是明細檔(quotation),另一個是明細檔的關聯(item),
目前程式是輸入text1.text按command1兩個grid(一個主檔、一個是明細檔)就會顯現資料,但是不知為何,明細的那個grid有欄位出來,卻沒有資料,但是主檔的那個gird卻有資料。
ps.嗯!我確定所輸入的pi_number其明細有資料。
下面是command1_click內的程式
Dim SQL As String
'設定SQL主
SQL = "SELECT * FROM CTM_PI WHERE PI_NUMBER = '" & Text1.Text & "'"
'設定RS主
Set RS = New ADODB.Recordset
If RS.State = adStateClosed Then
RS.CursorLocation = adUseClient
  RS.Open SQL, CN, adOpenStatic, adLockOptimistic
End If
'設定DATAGRID1主
Set DataGrid1.DataSource = RS
'設定SQL2明細
Dim SQL2 As String
SQL2 = "SELECT QUOTATION.PI_NUMBER, QUOTATION.CODE, ITEM.CCODE, ITEM.`DESC`, " _
& "ITEM.MAKER, ITEM.PACKING, QUOTATION.QUNT, QUOTATION.UNITPRICE,QUOTATION.UNITCUFT" _
   & " From QUOTATION, Item" _
   & " WHERE QUOTATION.CODE = ITEM.CODE AND (QUOTATION.PI_NUMBER = ' Text1.Text ')"
'設定RS2明細
Set RS2 = New ADODB.Recordset
If RS2.State = adStateClosed Then
RS2.CursorLocation = adUseClient
  RS2.Open SQL2, CN, adOpenStatic, adLockOptimistic
End If
'設定DATAGRID2明細
Set DataGrid2.DataSource = RS2
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()