189477_zh-TW

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}%'";