Dim chk As WinForm.CheckBox chk = Forms("窗口1").Controls("80") If chk.Checked = True Dim txt1 As WinForm.TextBox txt1 = e.Form.CreateControl("slge01", ControlTypeEnum.TextBox) txt1.Left = 300 txt1.Top = 100 txt1.Width = 77 e.Form.AddControl(txt1) txt1.BindingField = "表A.表B.第三列" Tables("表A.表B").Position = 2 Dim txt2 As WinForm.TextBox txt2 = e.Form.CreateControl("slge02", ControlTypeEnum.TextBox) txt2.Left = 300 txt2.Top = 150 txt2.Width = 77 e.Form.AddControl(txt2) txt2.BindingField = "表A.表B.第三列" Tables("表A.表B").Position = 1 Dim txt3 As WinForm.TextBox txt3 = e.Form.CreateControl("slge03", ControlTypeEnum.TextBox) txt3.Left = 300 txt3.Top = 200 txt3.Width = 77 e.Form.AddControl(txt3) txt3.BindingField = "表A.表B.第三列" Tables("表A.表B").Position = 0 Else e.Form.Controls("slge01").Visible = False e.Form.Controls("slge02").Visible = False e.Form.Controls("slge03").Visible = False End If
|