共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]数据库
1楼
风声 发表于：2023/12/11 20:40:00老师，修改表名代码设置错误。
此主题相关图片如下：2023-12-11 20 36 28.jpg
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
If lst.Items.count > 0 Then
Dim dr As DataRow
Dim igr As Integer = lst.SelectedIndex
Dim pwd As String = lst.SelectedValue
If Inputvalue(pwd,"重命名","请输入视图名称:") Then
dr = DataTables("视图表").find("视图名 = '" & lst.SelectedValue & "'")
dr("视图名称") = pwd
DataTables("视图表").save()
DataTables("视图表").load()
Tables("视图表").fill("SEL ECT * Fro m {视图表} where "房屋出租",False)
e.Form.controls("listbox1").Combolist = DataTables("视图表").GetComboListString("视图名称")
lst.SelectedIndex = igr
End If
End If
[此贴子已经被作者于2023/12/11 20:42:24编辑过]
2楼
有点蓝 发表于：2023/12/11 20:45:00Tables("视图表").fill("SEL ECT * Fro m {视图表} where "房屋出租",False) 这个地方错了，但是没看懂要做什么
共2 条记录, 每页显示 10 条, 页签:
[1]