Sql 正在使用发票时，尝试在vb.net中的BTNSUPMIT_click函数上显示警告消息

sql脚本正在验证发票类型和发票的使用。我需要在If（

Me.txtMasterId.Text“0”

）方法中添加检查和消息

Protected Sub btnsubmit\u Click（发送者作为对象，e作为事件参数）处理btnsubmit。单击
如果（不是DataForm.ValidateForm），则
TransRepo.ModifyStatusName（gUser.CompanyId、Me.txtMasterId.Text、Me.txtStatusName.Text、chkIsPmtPlanFee.Checked、chkIsPmtPlanFee.Checked、Me.cboStatus.SelectedValue、Me.txtId.Text、ParseDec（Me.txtextenselimit.Text）、chkUserSpecPayTo.Checked）
显示面板（Me.pnlItemList，Me.Form）
列表选项（Me.txtMasterId.Text）
SetPageHeader（“列表状态名称”）
如果（Me.txtId.Text=“0”），则
ShowConfirmation（Me.lblItemFrmMsg，“添加新名称”）
如果（Me.txtMasterId.Text“0”），则
ShowConfirmation（Me.lblItemFrmMsg，“状态名称已保存”）
其他的
DataForm.DisplayError（Me.lblFrmErr）
如果结束
如果结束
如果结束
端接头

Dim cn作为MySqlConnection
Dim rdr作为MySqlDataReader
尝试
Dim Sql=“选择发票类型\u id
来自发票类型费用
发票类型上的内部联接发票名称。id=发票类型费用。`id`
其中，发票名称。`is\u active`=1
和发票类型费用。`is\u active`=1
和（发票类型费用。`fee\U发票id`=@invoiceTyID
或发票类型费用。`fee\u late\u invoicetype\u id`=@invoiceTypeID LIMIT 1“
rdr.Read（）
如果（rdr.HasRows）那么
将消息变暗为字符串=“…”
Status.Visible=False
ClientScript.RegisterStartupScript（Me.GetType（），“警报”，“警报（''”&消息&“）；”，True）
'如果（invoicetype=“1”），则
如果结束
特例
扔
结束尝试
端接头

没有读卡器。你从不调用

ExecuteReader

，因此没有读卡器。你似乎认为执行SQL的是

read

，而不是。

ExecuteReader

执行SQL，然后使用

read

从结果集中获取数据。我刚刚意识到甚至没有命令在您的情况下，您需要创建一个命令来执行，执行它，然后读取结果

但是，获取任何数据都没有意义，因为您关心的是是否有数据，而不是数据是什么。这意味着在这种情况下，您只需要

HasRows

，例如

将连接用作新的MySqlConnection（“此处的连接字符串”），
命令作为新的MySqlCommand（sql，连接）
connection.Open（）
使用reader=command.ExecuteReader（）
如果reader.HasRows那么
'查询生成了一个非空的结果集。
如果结束
终端使用
终端使用

更好的选择是向SQL中添加

计数

，调用

ExecuteScalar

，然后检查结果是否为零

Dim Sql=“选择计数（发票类型.id）
来自发票类型费用
发票类型上的内部联接发票名称。id=发票类型费用。`id`
其中，发票名称。`is\u active`=1
和发票类型费用。`is\u active`=1
和（发票类型费用。`fee\U发票id`=@invoiceTyID
或发票类型费用。`fee\u late\u invoicetype\u id`=@invoiceTypeID LIMIT 1“
将连接用作新的MySqlConnection（“此处为连接字符串”），
命令作为新的MySqlCommand（sql，连接）
connection.Open（）
如果CInt（command.ExecuteScalar（））>0，则
“有匹配的记录。
如果结束
终端使用