VB script to convert a number to a letter フォローする

Andy Halsema

2020年06月22日 22:18

I have a database field for an item's Cost that I want to print on the label. However, cost needs to be encoded so that a customer does not see what the item cost is. The numeric values would be encoded as such:

1 = W

2 = O

3 = R

4 = K

5 = U

6 = N

7 = I

8 = T

9 = E

10 = 11

1 コメント

Pete Thane

2020年06月23日 15:38

Try this

Dim NumConv
NumConv = Array("xxx","W","O","R","K","U","N","I","T","E","11")

Value = Format.NamedSubStrings("TheNumber").Value

Value = NumConv(Value)

You will need to make the field a Visual Basic Script > Event Controlled Script and as the data is coming from a database I would suggest the OnNewRecord option from the column on the left.

For the second line type the Value = and then in the column on the right double click on your database field with the number in. I used a Named Data Source for my testing and so the code will be slightly different fro you.

I hope this helps

サインインしてコメントを残してください。