主题：窗口添加信息代码求助~~~~（已解决）

小弟刚接触狐表这个不久，刚开始的时候感觉挺好玩的，可以弄一些的程序了，可是在添加信息的时候迷糊了，我翻了好久也没翻到有相同的教材

 

我自己又弄了好几天，还是没办法。哎.....

没办法了，只能向各位大侠求助了。。

 

我已经上传了一个简单的例子，我希望达到的效果是：通过添加窗口进行添加信息，但是窗口中的控件不绑定到表列中，也就是在控件中输入信息（此时控件跟表没有任何关系），当把信息输入完成的时候，点击“保存”按钮时，自动的添加一行，并将控件的信息自动输入的刚添加的那行中，

 

在弱弱的问哈，点击按钮时，添加一行并自动填入数据是同步的吗？能做到不？

 

这是我上传的例子，迫切希望大家可以帮下我

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

因为我是采用的是mssql，我希望的是在点添加之前，数据表不会受它的任何影响，也不会在点之前就添加一行，那样在我还没操作完之前，其他用户再操作，会不会造成干扰或其他问题呢！

哦，那具体该怎么写呢？可以说下吗？

 

 

狐狸爸爸
   我表中有日期列、 逻辑列、数值列、和字符列。都可以按这种方法做吗？

我也觉得

我刚才试了一下，绑定的效果不是太好，程版主，您能给我个示例文件吗？

  日期列、逻辑列、文本列、数值列。哎，好难做啊

好像这里也没有相关的例子吧？

可以帮我把我上传的文件改一下吗？

 

程老大，你写的太高深了，小弟还真没看懂，这是小弟从别的地方挖来的代码，完全可以达到我要的要求，但是我是这段代码貌似只适用于字符列，

对于逻辑列、日期列、数值列。这几个就没法子了......

Dim tj02 As String = e.Form.Controls("列一").Value
Dim tj03 As String = e.Form.Controls("列二").Value
Dim tj04 As String = e.Form.Controls("列三").Value
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into {表A} ([列一], [列二],[列三]) Values ('"
cmd.CommandText = cmd.CommandText & tj02 & "','" & tj03 & "','" & tj04 & "')"
If cmd.ExecuteNonQuery = 1 Then '返回1表示增加成功
    e.Form.Close()
End If

 

这段代码是我从增加用户中提出来的，可能会存在不妥的地方，还望程版主指教

就差逻辑列的代码了，大哥帮我改成逻辑列的代码，灰常感谢！！！

Dim tj02 As String = e.Form.Controls("列一").Value
Dim tj03 As String = e.Form.Controls("列二").Value
Dim tj04 As String = e.Form.Controls("列三").Value
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into {表A} ([列一], [列二],[列三]) Values ('"
cmd.CommandText = cmd.CommandText & tj02 & "','" & tj03 & "','" & tj04 & "')"
If cmd.ExecuteNonQuery = 1 Then '返回1表示增加成功
    e.Form.Close()
End If

可以给我个代码例子吗？我弄不过来...