Private Sub adodc1_movecomplete(ByVal adReason As ADODB.EventReasonEnum, _
ByVal perror As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 銷貨資料表 where 客戶名稱 =" & "'" & Adodc1.Recordset("姓名") & "'" & " order by 產品編號"
Adodc2.Refresh
MSHFlexGrid1.MergeCells = flexMergeRestrictRows
MSHFlexGrid1.MergeCol(0) = True
MSHFlexGrid1.MergeCol(1) = True
End Sub
若直接挑有資料的Record 操作都沒問題 但如果選了沒有資料的Record後在選有資料的Record 會造成第一列的前二欄無法顯示
請指點迷津 謝謝
ByVal perror As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 銷貨資料表 where 客戶名稱 =" & "'" & Adodc1.Recordset("姓名") & "'" & " order by 產品編號"
Adodc2.Refresh
MSHFlexGrid1.MergeCells = flexMergeRestrictRows
MSHFlexGrid1.MergeCol(0) = True
MSHFlexGrid1.MergeCol(1) = True
End Sub
若直接挑有資料的Record 操作都沒問題 但如果選了沒有資料的Record後在選有資料的Record 會造成第一列的前二欄無法顯示
請指點迷津 謝謝
全站熱搜
留言列表