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 會造成第一列的前二欄無法顯示
請指點迷津 謝謝
arrow
arrow
    全站熱搜

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