-- 作者:zoyong
-- 发布时间:2017/6/12 12:54:00
-- SQLTable数据后台新增
窗口表为SQLTable型
此主题相关图片如下:搜狗截图17年06月12日1150_1.png
<!--[endif]-->
点新增后打开新增窗口,窗口为什么不能编缉
此主题相关图片如下:搜狗截图17年06月12日1236_2.png
窗口afterload代码
\'================新增与修改================ Dim name1 As String ="在建项目_table1" Select Case zfsb Case 1 Tables(name1).AddNew e.Form.Controls("窗口名称").text=name1 & "> > 新增项目" Case 3 e.Form.Controls("窗口名称").text=name1 & "> > 修改项目" Case 0 e.Form.Controls("窗口名称").text=name1 & "> > 查看信息" e.Form.Controls("保存").Visible=False e.Form.Controls("取消").Visible=False \'==================查看,不可修改============= Dim p As WinForm.GroupBox = e.Form.Controls("GroupBox1") Dim c As Integer= p.Children.Count-1 For c0 As Integer =0 To c If zfsb=0 Then If p.Children(c0).Gettype.Name Like "textbox" O r p.Children(c0).Gettype.Name Like "ComboBox" Then p.Children(c0).ReadOnly=BooleanEnum.True End If End If Next
现在问题:1.点新增或修改,老是出现第一条数据,而不是新增行或指定的数据行 2.新增后后台数据不会自动更新到前台
|