点增加时:
下面是出现错误的窗体代码:
窗体FrmWWCK1
Private Sub Form_Load()
Set F0 = FrmWWCK0
CLPara1.GetPara F0.CLPara1
CLToolBar21.Active
CLFrame1.LabCaption = F0.Caption
CLComboSW.sql = "SELECT BH,MC FROM T60SWYY WHERE BH='" & CLPara1.UserForm & "' ORDER BY BH"
If CLPara1.UserForm = "WWCK" Then
CLCombo2.InputField = "S40BH"
CLCombo2.DispField = "S40BH"
CLCombo2.sql = "SELECT S40BH,S40MC AS S60MC FROM S40CSDA ORDER BY S40BH"
End If
Screen.MousePointer = 0
End Sub
Private Sub Form_Resize()//运行到这里就出错了.
CLPara1.ResizeForm
End Sub
