如何将其他条件添加到此代码中？

编程问答 2022-06-01

问题描述

我有这个用于制作标签的子程序。出于某种原因，我不能只制作另一个子程序，因为其他子程序，它使用“YCI_SAMPLE_LABEL”而不是“CGI_SAMPLE_LABEL”。关于我如何添加它以便它选择一个或另一个的任何建议。如果尝试使用 WHERE OR 但这不起作用。我编辑了一些标签，因为 Lims 基本语言也像 smalltalk。

LabelType = "CGI_SAMPLE_LABEL"
pTableNameStr = "SAMPLE"
pLabelNameStr = "CGI_SAMPLE_LABEL"

'Breakpoint(aReason) 
NumSamples = Ubound(selectedobjects,1)

FOR X = 1 TO NumSamples
    SampleNumber = selectedobjects[x]   
    pKeyNameArr[1] = SampleNumber 
    pNumLabelsInt = 1
    pLabelNameStr = "CGI_SAMPLE_LABEL"
    pReasonStr = "Auto Label Generation"
    pActivityStr = "Label printed for sample logged event"
    GOSUB FN_LABEL_PRINT_ALL
NEXT 'Sample

RETURN

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

basic