用变量

Question

我有一个与MDB文件链接的项目。我需要根据条件过滤表的记录，并且“字段名称”和值或条件都应该通过变量传递给Sub。 select语句不起作用。我错过了什么吗？

Dim Result() As DataRow
Dim strField As String = "asset_code"
Dim dblValue As Double = 3
Dim tblName as Datatable = AssetsDataSet.Assets
Result = tblName.Select(" '" & strField & "' = '" & dblValue& "' ")

Answer 1

我怀疑你需要松开字段名称周围的单引号和数据，因为它看起来像数字：

Result = tblName.Select（strField＆amp;“=”＆amp; cstr（dblValue））

使用字符串数据，您需要使用一个函数： Result = tblName.Select（“textfield =”＆amp; cSQL（StringData））

函数cSQL（psTextData As String）As String

' Replace any single quotes to be 2 single quotes
Return "'" + Replace(psTextData, "'", "''") + "'"

结束功能