189477_zh-CN

liliconcom

如何将文本编辑框的内容放入“变量”中？

你好，

我正在寻找手动更改变量的替代方案（“检验批") 在脚本本身内。

 

以前的脚本：

 

Names Default To Here( 1 );
Open Database(
"DBQ=X:...
WHERE User1 LIKE '%Inspection Lot%'", "HSS"
);

 

 

我尝试了这个 - s.below，但它不起作用。 脚本正在运行，但“变量”未被使用。 可能是格式有问题。 寻求建议。

谢谢。

 

新脚本版本：

 

Names Default To Here( 1 );
win = New Window( "Edit Box - Enter the Inspection Lot",
<<MODAL></MODAL>

 

回复：如何将文本编辑框的内容放入“变量”中？

非常非常感谢 - 我的第一个对话框工作了 - 我很高兴！

回复：如何将文本编辑框的内容放入“变量”中？

对于在本论坛发帖的一些建议：

 

• 缩进代码（右键单击 > 重新格式化脚本）
• 使用 按钮将代码粘贴到论坛中。这将保留语法颜色

 

解决你的问题。我的代码检查文本框中是否输入了值。如果那里有一个值，它会使用该变量创建一个 SQL 字符串sql ，然后调用打开数据库。您的代码使用其中的 IF 命令调用 open 数据库。那是行不通的。

 

试试这个代码：

 If( tbox_value != "",
  sql = Eval Insert(
   "SELECT TRBallShearHSBTTSF.Sample, Test, .... 
FROM TRBallShearHSBTTSF INNER JOIN SSBallShearHSBTTSF
ON TRBallShearHSBTTSF.Sample = SSBallShearHSBTTSF.Sample
WHERE User1 LIKE '%^tbox_value^%'");
  );

  dsn_string = "DBQ=X:\- ...HS.mdb;DefaultDir=X:\- ...;Driver={Driver do Microsoft Access (*.mdb)};DriverId=..;FIL=MS Access;FILEDSN=X:\...dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;";

  Open Database(dsn_string, sql, "HSS-Dage 4000");
);

回复：如何将文本编辑框的内容放入“变量”中？

你好，

非常感谢您的快速回复。 不幸的是，我对编程了解不多，而且仍在挣扎 - 见下文：

 

抱歉 - 我不明白，在哪里放置“IF-Command”。

 

Open Database(
 "DBQ=X:\- ...HS.mdb;DefaultDir=X:\- ...;Driver={Driver do Microsoft Access (*.mdb)};DriverId=..;FIL=MS Access;FILEDSN=X:\...dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;",
 If( tbox_value != "",
  sql = Eval Insert(
   "SELECT TRBallShearHSBTTSF.Sample, Test, .... 
FROM TRBallShearHSBTTSF INNER JOIN SSBallShearHSBTTSF
ON TRBallShearHSBTTSF.Sample = SSBallShearHSBTTSF.Sample
WHERE User1 LIKE '%^tbox_value^%'",
   "HSS-Dage 4000"
  )
 )
);

回复：如何将文本编辑框的内容放入“变量”中？

您正在将文本编辑框的变量称为“texteditbox”，这是允许的，但不是良好的编程实践。以下是如何使用在文本编辑框中输入的值：

Names Default To Here( 1 );
tbox_value = "";
win = New Window( "Edit Box - Enter the Inspection Lot",
 <<MODAL></MODAL>

如果我输入 ABC 日志将显示以下内容：

sql = "SELECT foo, bar
   FROM utopia
WHERE User1 LIKE '%{ABC}%'";