[求助]綁訂表篩選後怎麼增加行? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[求助]綁訂表篩選後怎麼增加行?

此主题相关图片如下：32423.jpg

我想在產品管理系統_印前修改的時候增加行,但沒辦法增加怎麼辦?

Dim s As String

s = e.Form.Controls("TextBox2").Value

Dim dst1 As Table = Tables("產品管理系統_Table1")

dst1.DataSource = DataTables("產品管理系統_印前")

dst1.SetColVisibleWidth("項目|50|內容|50|新舊網框|90|規格|90|台數|50|說明|90|成本單價|90|成本小計|90|產品代號|90|產品規格|90")

If dst1.Current Is Nothing Then

dst1.Filter = "False"

Else

dst1.Filter = "[產品代號] Like '%"& s &"%'"

End If

你这样是可以新增行，但是在下面是看不到的。

此主题相关图片如下：222.jpg

那如果用sql的選擇語句來寫這段代碼怎麼寫啊?

Dim s As String

s = e.Form.Controls("TextBox2").Value

Dim dst1 As Table = Tables("產品管理系統_Table1")

dst1.DataSource = DataTables("產品管理系統_印前")

dst1.SetColVisibleWidth("項目|50|內容|50|新舊網框|90|規格|90|台數|50|說明|90|成本單價|90|成本小計|90|產品代號|90|產品規格|90")

If dst1.Current Is Nothing Then

dst1.Filter = "False"

Else

dst1.Filter = "[產品代號] Like '%"& s &"%'"

End If

取消筛选那出來的數據不是包含所以的數據,但是我只是要和窗口控件中和產品代號一樣的數據出現.沒有其他辦法了嗎?

Tables("產品管理系統_Table1").Fill("Select * From {產品管理系統_印前} where 產品代號= '"& s &"'",False)

加一个按纽（代码：Tables("產品管理系統_Table1").AddNew()）

似乎能增加行但是不能编辑

谢谢可以了！

但是这样 “產品管理系統_印前”这个表写的事件都没用了。

表事件都没用了

选了表为 SQlTable 类型也没用啊

表事件还是没有

下载信息 [文件大小：下载次数： ]
点击浏览该文件:2.table

帮忙看下

产品管理系统的窗口

那就使用非副本的Normal型Table，这样新增行就不会被隐藏。

SQLTable，那么就可以用SQl语句从指定数据源中提取数据生成Table。要是选SQLTable是没用的。

只能选非副本的Normal型Table，但是

用

Dim s As String
s = e.Form.Controls("TextBox2").Value

        Dim dst1 As Table = Tables("產品管理系統_Table1")
        dst1.DataSource = DataTables("產品管理系統_印前")
        dst1.SetColVisibleWidth("項目|50|內容|50|新舊網框|90|規格|90|台數|50|說明|90|成本單價|90|成本小計|90|產品代號|90|產品規格|90")
       If dst1.Current Is Nothing Then
            dst1.Filter = "False"
        Else
            dst1.Filter = "[產品代號] Like '%"& s &"%'"
        End If
Tables("產品管理系統_Table1").AllowEdit = True

代码在窗口事件中，新增空白行在 tables("產品管理系統_Table1") 看不到。真不知道怎么弄

主题：[求助]綁訂表篩選後怎麼增加行?