以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQLTable数据后台新增  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102040)

--  作者: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.新增后后台数据不会自动更新到前台



--  作者:有点色
--  发布时间:2017/6/12 14:30:00
--  

 

 你的窗口的控件,不要绑定原来的表,你要绑定的是sqlTable表 窗口名_Table1.档案编号 等。