主题：HideUnSelectedRows无效

datatable("表A").HideUnSelectedRows 无效

 

从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。

提示 就这一句 不知道该怎么用

Tables("表A").HideUnSelectedRows

Tables("员工").HideUnSelectedRows

 

是我打错了 就是用

Tables("表a").HideUnSelectedRows 才出错的

这句代码不可能有问题。

Tables("员工").HideUnSelectedRows

 

If Tables("员工").AllowEdit = False Then
Tables("员工").AllowEdit = True
e.Form.Controls("Button1").text = "放弃"
Else
DataTables("员工").RejectChanges()
e.Form.Controls("Button1").text = "修改"
Tables("员工").AllowEdit = False
End If

 

是我不好  没有给你全部代码

应该是你 datacolchanged 事件的代码有问题，比如用字符串跟数字比较了，如

 

If e.DataRow("某列") = 0 Then

 

左边的值是字符串。

 也是没有找到比较的语句

商户_DataColChanged

 

Dim r As DataRow = DataTables("操作日志").AddNew

r("动作") = "改变商户表"

r("spid") = e.DataRow("_Identify")

r("变更_前") = e.OldValue

r("变更_后") = e.NewValue

r("日期") = Date.Today

r("操作员") = _UserName

r("操作日志") = Date.Now & "★" & e.DataCol.name & "★" &  e.OldValue & "→" & e.NewValue

r.Save

 

商户_BeforeSaveDataRow

 

Dim r As DataRow = DataTables("操作日志").AddNew

r("动作") = "保存 商户表"

r("日期") = Date.Today

r("操作员") = _UserName

r("操作日志") = "★" & Date.Now

r.Save

 

商户_DataRowAdded

 

Dim r As DataRow = DataTables("操作日志").AddNew

r("动作") = "增加商户表"

r("日期") = Date.Today

r("操作员") = _UserName

r("操作日志") = Date.Now & "★" & "增加行的主键为" & e.DataRow("_Identify")

r.Save

 

商户_BeforeDeleteDataRow

 

Dim r As DataRow = DataTables("操作日志").AddNew

r("动作") = "删除商户表"

r("日期") = Date.Today

r("操作员") = _UserName

Dim di As String

For Each r1 As DataCol In e.DataTable.DataCols

    di = di + "|" + r1.name + "=" & e.DataRow(r1.name)

Next

 

r("操作日志") = Date.Now & "★" & "删除行的主键为" & e.DataRow("_Identify") & "内容为(" & di & ")"

r.Save

代码都没问题，做个例子上传上来测试。