我公司用VB6.0 + True DBgrid 6.0寫了一個program, 但在電腦上run時侯, True DBgrid 不能計算或沒有反應, 請問如何解決和eliminate.
eg.
Private Sub grdDetail_AfterColUpdate(ByVal ColIndex As Integer)
With grdDetail
If ColIndex = 3 Then
If .Columns(0) = "A" Then
sOrderNo = txtSearch
.Columns(1) = sOrderNo
.Columns(5) = sPONo*13.264
End If
End If
End With
End Sub
eg.
Private Sub grdDetail_AfterColUpdate(ByVal ColIndex As Integer)
With grdDetail
If ColIndex = 3 Then
If .Columns(0) = "A" Then
sOrderNo = txtSearch
.Columns(1) = sOrderNo
.Columns(5) = sPONo*13.264
End If
End If
End With
End Sub
全站熱搜
留言列表